home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pascalt2.zip / LOOPDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  809b  |  34 lines

  1.                                 (* Chapter 4 - Program 1 *)
  2. program Demonstrate_Loops;
  3.  
  4. var Count  : integer;
  5.     Start  : integer;
  6.     Ending : integer;
  7.     Total  : integer;
  8.     Alphabet : char;
  9.  
  10. begin
  11.    Start := 1;
  12.    Ending := 7;
  13.    for Count := Start to Ending do      (* Example 1 *)
  14.       Writeln('This is a count loop and we are in pass',Count:4);
  15.  
  16.    Total := 0;
  17.    for Count := 1 to 10 do begin        (* Example 2 *)
  18.       Total := Total + 12;
  19.       Write('Count =',Count:3,'  Total =',Total:5);
  20.       Writeln;
  21.    end;
  22.  
  23.    Writeln;
  24.    Write('The alphabet is ');
  25.    for Alphabet := 'A' to 'Z' do         (* Example 3 *)
  26.       Write(Alphabet);
  27.    Writeln;
  28.  
  29.    for Count := 7 downto 2 do            (* Example 4 *)
  30.       Writeln('Decrementing loop ',Count:3);
  31.  
  32. end.
  33.  
  34.